function [n2,ValueAbstract]=getAbstractSize(VecValue,n2)

ValueAbstract=[];
TestTemp=0;
TestTemp2=0;
ValueTemp=size(VecValue,1);
ValueTemp2=size(VecValue,1)-14;
n3=n2;
n4=0;
while n2<=ValueTemp&&TestTemp==0
    if strcmp(char(VecValue(n2,1)),'>')==1
        n4=n2+1;
        while n2<=ValueTemp2&&TestTemp2==0
            VecValueTemp4=VecValue(n2:n2+10,1);
            if strcmp(char(VecValueTemp4'),'</Abstract>')==1&&n4-n3<=12
                n5=n2-1;
                TestTemp2=1;
                TestTemp=1;
                ValueAbstract=[ValueAbstract n5-n4];
            else
                if n4-n3>12
                    VecValueTemp5=VecValue(n2:n2+10,1);
                    VecValueTemp4=VecValue(n2:n2+14,1);
                    if strcmp(char(VecValueTemp4'),'</AbstractText>')==1||strcmp(char(VecValueTemp5'),'</Abstract>')==1
                        n5=n2-1;
                        TestTemp2=1;
                        TestTemp=1;
                        ValueAbstract=[ValueAbstract n5-n4];
                    end
                end
            end
            n2=n2+1;
        end
    else
        if strcmp(char(VecValue(n2:n2+10,1)'),'</Abstract>')==1||strcmp(char(VecValue(n2:n2+14,1)'),'</AbstractText>')==1
            if n4==0
                TestTemp=1;
            else
                if n4-n3>12
                    TestTemp=1;
                else
                    if strcmp(char(VecValue(n2:n2+10,1)'),'</Abstract>')==1
                        TestTemp=1;
                    end
                end
            end
        end
    end
    n2=n2+1;
end